home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / prokit34.zip / PROSYSF.INT < prev    next >
Text File  |  1991-04-01  |  3KB  |  109 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1991 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *)
  12.  
  13. (*
  14.  * PCB ProDOOR - sysop/system functions (7-1-89)
  15.  *
  16.  *)
  17.  
  18. unit ProSysF;
  19.  
  20. interface
  21.    Uses
  22.      Dos,
  23.      Tools,
  24.      MdosIO,
  25.      ProData;
  26.  
  27. procedure sysop_view_log;
  28. procedure sysop_remote;
  29. procedure password_entry;
  30. procedure edit_user_info;
  31. procedure write_user_info;
  32. procedure view_profile;
  33.  
  34. procedure translate_cmdline(xfile: filenames);
  35. procedure get_xcmd(xfile: filenames);
  36.  
  37. procedure shell_to_dos;
  38.    {allow the sysop to drop to DOS for a moment}
  39.  
  40. procedure toggle(var v: char2);
  41.    {toggle a variable and update status display accordingly}
  42.  
  43. procedure dispatch_function_key(c: char);
  44.    {sysop function key dispatch}
  45.  
  46. procedure process_function_keys;
  47.    {read next local function code and dispatch it}
  48.  
  49. procedure chat_mode;
  50. procedure operator_page;
  51.  
  52. procedure flag_files;
  53. procedure autoflag_scratch;
  54. function flag_warning(quit: boolean): boolean;
  55.  
  56. procedure log_onoff(what: string30; state: boolean);
  57. procedure expert_toggle;
  58. procedure mode_toggle;
  59. procedure snoop_toggle;
  60. procedure hotkey_toggle;
  61. procedure scan_toggle;
  62. procedure visual_prompt_toggle;
  63. procedure use_visual_toggle;
  64. procedure cls_toggle;
  65. procedure node_chat_toggle;
  66.  
  67. procedure set_node_status(newcode: char);
  68. procedure node_status_display;
  69. procedure node_chat;
  70. procedure check_chat_request;
  71.  
  72. const
  73.   node_available        = 'A';
  74.   node_unavailable      = 'U';
  75.   node_in_door          = 'D';
  76.   node_entering_msg     = 'E';
  77.   node_transfer         = 'T';
  78.   node_group_chat       = 'G';
  79.   node_logoff_pending   = 'L';
  80.   node_dropping_2dos    = 'X';
  81.   node_no_caller        = ' ';
  82.   node_chat_request     = 'R';
  83.   node_going_down       = '@';  {not a standard code}
  84.  
  85.   chat_poll: boolean = true;    {true if polling for chat}
  86.  
  87.   node_prev_code: char = #0;
  88.  
  89. procedure update_user_info(var user:      pcb_user_rec;
  90.                            var extuser:   extuser_rec;
  91.                            maxlevel:      integer);
  92.  
  93. type
  94.    status_formats = (normal_format, help_format, pgup_format, pgdn_format);
  95.  
  96. procedure update_status_display (format:  status_formats);
  97.    {display current status information on the last 2 lines of the screen}
  98.  
  99. procedure init_status_display;
  100.    {prepare the screen for status displays}
  101.  
  102. procedure transfer_status_display;
  103.    {prepare the status display area for execution of a protocol driver}
  104.  
  105. procedure delete_status_display;
  106.    {completely remove status display from the screen}
  107.  
  108. implementation
  109.